home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1995 November / Macworld Nov ’95.toast / Developers / Selection ƒ 2.5 / graphicRect < prev    next >
Encoding:
Text File  |  1994-11-06  |  498 b   |  40 lines  |  [TEXT/MSET]
  1.  \ 28Oct94 dbh updated to 2.5 syntax
  2.  
  3. \ A rectangle that remembers what it looks like (pen settings).
  4.  
  5.  
  6. :class graphicRect super{ rect+ pen }
  7.  
  8. :m draw:
  9.     set: super    \ pen
  10.     draw: super ;m    \ rect
  11.  
  12. :m pensize:  ( w h -- )
  13.     size: super> pen ;m
  14.  
  15. ;class
  16.  
  17. endload
  18.  
  19. *** EXAMPLE USE
  20.  
  21. graphicRect r1
  22. 50 140 moveto: r1
  23.  
  24.  
  25. graphicRect r2
  26. 50 200 moveto: r2
  27. 6 6 pensize: r2
  28. 3 pattern: r2  ( a gray pattern)
  29. set: r2
  30.  
  31. : go
  32.     draw: r1
  33.     draw: r2
  34.         70 0 move: r1
  35.     draw: r1
  36.         40 setwidth: r2
  37.         70 0 move: r2
  38.     draw: r2
  39. ;
  40.